(old)Puppy Linux Discussion Forum

Code: Select all

~ $ bacon -v

BaCon version 1.0 build 19 - (c) Peter van Eerten - GPL v3.

~ $ sudo bacon ./gtk-server-new.bac 
Starting conversion... done.   
Starting compilation... done.
Program './gtk-server-new' ready.
~ $ ./gtk-server-new
ERROR: signal for SEGMENTATION FAULT received - memory invalid or array out of bounds? Try to compile the program with TRAP LOCAL to find the cause.

Code: Select all

~ $ sudo ./gtkabout2 

(<unknown>:7908): GLib-GObject-CRITICAL **: g_object_unref: assertion `G_IS_OBJECT (object)' failed

Code: Select all

< 	DECLARE window, about, battery, image, rv TYPE long
< 	gtk_init(0, 0)
< 	window = gtk_window_new(GTK_WINDOW_TOPLEVEL)

Code: Select all

< IMPORT "gtk_init" FROM "libgtk-x11-2.0.so" TYPE void
< IMPORT "gtk_init" FROM "libgtk-x11-2.0.so" TYPE void
< IMPORT "gtk_window_new" FROM "libgtk-x11-2.0.so" TYPE long
< IMPORT "gtk_widget_show_all" FROM "libgtk-x11-2.0.so" TYPE void
---
> IMPORT "gtk_init(int*,void*)" FROM "libgtk-x11-2.0.so" TYPE void
> IMPORT "gtk_window_new(int)" FROM "libgtk-x11-2.0.so" TYPE long
> IMPORT "gtk_widget_show_all(long)" FROM "libgtk-x11-2.0.so" TYPE void

Code: Select all

pid=`ps aux| grep wget | awk '{print $2}'`&&kill -9 $pid

Code: Select all

#!/bin/bash


# Joe Arose  big_bass 11-18-2010
# call this  auto-build-compile-bacon
# auto download compile install  and test Bacon and the 18 basic examples
# so you can easily update when needed

# thanks "mechanic" for the speed tip  using bacon instead of bacon.bash for compiling

# thanks seaside for the bash version test
# added syntax highlighting


BASHV=$(bash --version | head -1)
VN=$(echo $BASHV | cut -f1 -d. | sed 's/^.*\(.\)$/\1/')
[ $VN -lt 4 ] && Xdialog --title "bash version test " \
           --infobox "\nBash Version Problem $BASHV installed
---------------> Bash must be version 4 or above for BaCon <-------------------" "\n" 0 0





#   =====================================
#    downoad ,compile and install BaCon
#   =====================================


Xdialog --wrap --title "bacon instlaller" \
        --yesno "Do you want to install bacon  " 0 0

case $? in
  0)
    echo "Yes chosen."
   


rm -f  bacon.bash*
rm -f  bacon.bac*
rm -f  bacon



xterm  -geometry 40x30+150+40 -e wget http://www.basic-converter.org/bacon.bash
chmod a+x bacon.bash


xterm  -geometry 40x30+150+40 -e wget http://www.basic-converter.org/bacon.bac
chmod a+x bacon.bac


xterm  -geometry 40x30+150+40 -e ./bacon.bash bacon.bac

# copy bacon bin into the path
cp bacon /usr/sbin


Xdialog --title "Complete" \
           --infobox "\nInstalling bacon has finished.\n" 0 0 3000


   ;;
  1)
    echo "No chosen."
    exit
   ;;
  255)
    echo "Box closed."
    exit
   ;;

esac


#   =====================================
#    syntax highlighting
#   =====================================

#(0) download the file http://www.basic-converter.org/bacon.lang
     

    xterm  -geometry 40x30+150+40 -e wget http://www.basic-converter.org/bacon.lang

#(1) Create language directory for GtkSourceView:

    mkdir -p ~/.local/share/gtksourceview-2.0/language-specs/

#(2) Copy this file to the new directory:

    cp bacon.lang ~/.local/share/gtksourceview-2.0/language-specs/

#Now start gedit, Anjuta, Scribes etc and the BaCon sourcecode has
#   syntax highlighting!



Xdialog --title "syntax highlighting" \
           --infobox "\nsyntax highlighting has installed.\n" 0 0 3000



#   =====================================
#    download  compile and test  the 18 test files
#   =====================================

Xdialog --wrap --title "test bac downloader" \
        --yesno "Do you want to download the bac examples   " 0 0

case $? in
  0)
    echo "Yes chosen."
   

 

###########################################

clean up old projects
rm -f  /root/bacon-examples/test*

cat << 'EOF' >/tmp/basic-examples
test1.bac
test2.bac
test3.bac
test4.bac
test5.bac
test6.bac
test7.bac
test8.bac
test9.bac
test10.bac
test11.bac
test12.bac
test13.bac
test14.bac
test15.bac
test16.bac
test17.bac
test18.bac
EOF

mkdir -p /root/bacon-examples
cd /root/bacon-examples  #note if not done it goes to root directory
MYURL="http://www.basic-converter.org/"


for i in `cat /tmp/basic-examples`
do xterm  -geometry 40x30+150+40 -e wget -c $MYURL$i


xterm  -geometry 40x30+150+40 -e bacon /root/bacon-examples/$i
Xdialog --title "testing compiler " \
           --infobox "\n$i compiled with bacon .\n" 0 0 3000


BAC_BIN=`basename  "$i" .bac`
xterm -hold  -geometry 40x30+150+40 -e /root/bacon-examples/$BAC_BIN

done
   ;;
  1)
    echo "No chosen."
    exit
   ;;
  255)
    echo "Box closed."
    exit
   ;;

esac

Code: Select all

' --------------------
FUNCTION CAT(STRING FILENAME$)
' --------------------
	LOCAL fileline$, txt$ TYPE STRING
	IF FILEEXISTS(FILENAME$) THEN
		OPEN FILENAME$ FOR READING AS catfile
		WHILE NOT(ENDFILE(catfile)) DO
			READLN fileline$ FROM catfile
			txt$ = CONCAT$(txt$, fileline$, NL$)
		WEND
		CLOSE FILE catfile
	END IF
	RETURN CHOP$(txt$)
END FUNCTION

Code: Select all

bacon test1.bac 
...

Code: Select all

' *************************************************************
' PROGRAM:	screensize.bac
' PURPOSE:	get X screen size in pixels from default display
' AUTHOR:		vovchik (Puppy Linux forum)
' COMMENTS:	GPL		
' DEPENDS:	bacon 1.0 build 0.19, gtk, gdk libs
' PLATFORM:	Linux (actually, any *nix)
' DATE:		03-10-2010
' VERSION:	0.1a
' *************************************************************

' *********************
' DEF ERROR HANDER
' *********************

TRAP LOCAL
CATCH GOTO PRINT_ERROR

' *********************
' END DEF ERROR HANDER
' *********************


' *********************
' CONSTANTS
' *********************

CONST Gtk$ = "libgtk-x11-2.0.so.0"
CONST Gdk$ = "libgdk-x11-2.0.so.0"

' *********************
' END CONSTANTS
' ********************


' *********************
' DECLARATIONS
' *********************

DECLARE MyScreen$ TYPE STRING

' *********************
' END DECLARATIONS
' *********************


' *********************
' IMPORTS
' *********************

IMPORT "gtk_init(int*,void*)" FROM Gtk$ TYPE void
IMPORT "gtk_exit(int)" FROM Gtk$ TYPE void
IMPORT "gtk_window_get_size(long,int*,int*)" FROM Gtk$ TYPE void
IMPORT "gdk_screen_get_default" FROM Gdk$ TYPE long
IMPORT "gdk_screen_get_width(long)" FROM Gdk$ TYPE int
IMPORT "gdk_screen_height(long)" FROM Gdk$ TYPE int

' *********************
' END IMPORTS
' *********************


' *********************
' FUNCTIONS
' *********************

' ------------------
FUNCTION SCREENSIZE(NUMBER mode)
' ------------------
	' mode = 0 returns x (width)
	' mode = 1 returns y (height)
	' mode = 2 returns space-delimited x (width) and y (height)
	' otherwise function returns error message
	LOCAL x, y TYPE int
	LOCAL myresult$ TYPE STRING
	y = gdk_screen_height(gdk_screen_get_default())
	x = gdk_screen_get_width(gdk_screen_get_default())
	SELECT mode
		CASE 0
			myresult$ = STR$(x)
		CASE 1
			myresult$ = STR$(y)
		CASE 2
			myresult$ = CONCAT$(STR$(x), " ", STR$(y))
		DEFAULT
			myresult$ = CONCAT$("Error: SCREENSIZE(", STR$(mode), ") mode is bad: 0 = w, 1 = h and 2 = h and w.")
	END SELECT
	RETURN CHOP$(myresult$)
END FUNCTION


' *********************
' END FUNCTIONS
' *********************


' *********************
' MAIN
' *********************

gtk_init(0, 0)
MyScreen$ = SCREENSIZE(0)
PRINT MyScreen$
MyScreen$ = SCREENSIZE(1)
PRINT MyScreen$
MyScreen$ = SCREENSIZE(2)
PRINT MyScreen$
MyScreen$ = SCREENSIZE(3)
PRINT MyScreen$
gtk_exit(0)
END

' *********************
' END MAIN
' *********************


' *********************
' ERROR HANDLER
' *********************

LABEL PRINT_ERROR
    PRINT "GTK library ", Gtk$, " is not available on this platform!"
    END

' *********************
' END ERROR HANDLER
' *********************

Code: Select all

use_proxy = on

Code: Select all

BASHV=$(bash --version)
VN=$(echo $BASHV | cut -f1 -d. | sed 's/^.*\(.\)$/\1/')
[ $VN -lt 4 ] && gxmessage -title "Bash Version Problem" -center -bg orange "$BASHV installed 
---------------> Bash must be version 4 <-------------------" & exit

Code: Select all

INCLUDE "hug.bac"

win_width = 200
win_height = 100
mainwin = WINDOW("Radio test", win_width, win_height)
my_radio1 = RADIO("On", 50, 30, my_radio2)
my_radio2 = RADIO("Off", 50, 30, my_radio1)
ATTACH(mainwin, my_radio1, 20, 20)
ATTACH(mainwin, my_radio2, 20, 50)
DISPLAY

Code: Select all

BASHV=$(bash --version | head -1)
VN=$(echo $BASHV | cut -f1 -d. | sed 's/^.*\(.\)$/\1/')
[ $VN -lt 4 ] && Xdialog --title "bash version test " \
           --infobox "\nBash Version Problem $BASHV installed 
---------------> Bash must be version 4 or above for BaCon <-------------------" "\n" 0 0