(old)Puppy Linux Discussion Forum

Code: Select all

INCLUDE "hug.bac"

win_width = 200
win_height = 100
mainwin = WINDOW("Radio test", win_width, win_height)
my_radio1 = RADIO("One", 50, 30, my_radio3)
my_radio2 = RADIO("Two", 50, 30, my_radio1)
my_radio3 = RADIO("Three", 50, 30, my_radio1)
ATTACH(mainwin, my_radio1, 20, 20)
ATTACH(mainwin, my_radio2, 20, 50)
ATTACH(mainwin, my_radio3, 20, 80)    

DISPLAY 

Code: Select all

PUPMODE=12
PDEV1='sr0'
DEV1FS='iso9660'
PUPSFS='sda7,ext3,/w0981011.143/wary_098.sfs'
PUPSAVE='sda7,ext3,/warysave-098.2fs'
PMEDIA='usbcd'
#kernel with libata pata has both sata and pata drives in ATADRIVES...
ATADRIVES='sda '
#these directories are unionfs/aufs layers in /initrd...
SAVE_LAYER='/pup_rw'
PUP_LAYER='/pup_ro2'
#The partition that has the warysave file is mounted here...
PUP_HOME='/mnt/dev_save'
#(in /initrd) ...note, /mnt/home is a link to it.
#this file has extra kernel drivers and firmware...
ZDRV='sda7,ext3,/w0981011.143/zw098114.sfs'
#complete set of modules in the initrd (moved to main f.s.)...
ZDRVINIT='no'
#Partition no. override on boot drive to which session is (or will be) saved...
PSAVEMARK=''

Code: Select all

OPEN "/etc/rc.d/PUPSTATE" FOR READING AS handle

WHILE NOT(ENDFILE(handle))

    READLN line$ FROM handle

    SPLIT line$ BY "=" TO item$ SIZE dim
    
    IF dim > 0 THEN
        SELECT item$[0]
            CASE "PUPMODE"
                PUPMODE = VAL(item$[1])
            CASE "PDEV1"
                PDEV1$ = item$[1]
            CASE "DEV1FS"
                DEV1FS$ = item$[1]
            CASE "PUPSFS"
                PUPSFS$ = item$[1]
            CASE "PUPSAVE"
                PUPSAVE$ = item$[1]
            CASE "PMEDIA"
                PMEDIA$ = item$[1]
            CASE "ATADRIVES"
                ATADRIVES$ = item$[1]
            CASE "SAVE_LAYER"
                SAVE_LAYER$ = item$[1]
            CASE "PUP_LAYER"
                PUP_LAYER$ = item$[1]
            CASE "PUP_HOME"
                PUO_HOME$ = item$[1]
            CASE "ZDRV"
                ZDRV$ = item$[1]
            CASE "ZDRVINIT"
                ZDRVINIT$ = item$[1]
            CASE "PSAVEMARK"
                PSAVEMARK$ = item$[1]
        END SELECT
    END IF

WEND

CLOSE FILE handle

Code: Select all

OPTION BASE 1
myfile$ = "PUPSTATE"
mygrep$=CONCAT$(" | grep -v ", CHR$(34),"#",CHR$(34))
mycmd$ = CONCAT$("cat ", myfile$, mygrep$)
mypupstate$ = CHOP$(EXEC$(mycmd$))
SPLIT mypupstate$ BY NL$ TO mypuplines$ SIZE pupline_entries
FOR i = 1 TO pupline_entries
	valvar$ = ""
	varname$ = ""
	mypuplines$[i] = REPLACE$(mypuplines$[i],"'","") 
	varname$ = LEFT$(mypuplines$[i], INSTR(mypuplines$[i], "=") - 1)
	valvar$ = MID$(mypuplines$[i], INSTR(mypuplines$[i], "=") + 1)
	SELECT varname$
		CASE "PUPMODE"
			PUPMODE$ = valvar$
		CASE "PDEV1"
			PDEV1$ = valvar$
		CASE "DEV1FS"
			DEV1FS$ = valvar$
		CASE "PUPSFS"
			PUPSFS$ = valvar$
		CASE "PUPSAVE"
			PUPSAVE$ = valvar$
		CASE "PMEDIA"
			PMEDIA$ = valvar$
		CASE "ATADRIVES"
			ATADRIVES$ = valvar$
		CASE "SAVE_LAYER"
			SAVE_LAYER$ = valvar$
		CASE "PUP_LAYER"
			PUP_LAYER$ = valvar$
		CASE "PUP_HOME"
			PUP_HOME$ = valvar$
		CASE "ZDRV"
			ZDRV$ = valvar$
		CASE "ZDRVINIT"
			ZDRVINIT$ = valvar$
		CASE "PSAVEMARK"
			PSAVEMARK$ = valvar$
	END SELECT
NEXT i

Code: Select all

GLOBAL pupstate$ ASSOC STRING

REM read /etc/rc.d/PUPSTATE and evaluate vars...
OPEN "/etc/rc.d/PUPSTATE" FOR READING AS handle1
WHILE NOT(ENDFILE(handle1)) DO
 READLN line$ FROM handle1
 IF NOT(ENDFILE(handle1)) THEN
  first$=LEFT$(line$,1)
  IF NOT(EQUAL(first$,"#")) THEN
   SPLIT line$ BY "=" TO array$ SIZE dimension
   val$=CHOP$(array$[1],"' ")
   pupstate$(array$[0])=val$
  ENDIF
 ENDIF
WEND
CLOSE FILE handle1

REM test result:
REM retrieves all elements of assoc array:
LOOKUP pupstate$ TO c$ SIZE d
FOR x=0 TO d-1
 PRINT c$[x]
NEXT
REM print one variable:
PRINT pupstate$("PUPSFS")

Code: Select all

GLOBAL pupstate$ ASSOC STRING

REM read /etc/rc.d/PUPSTATE and evaluate vars...
OPEN "/etc/rc.d/PUPSTATE" FOR READING AS handle1
WHILE NOT(ENDFILE(handle1)) DO
 READLN line$ FROM handle1
 chopped$=CHOP$(line$)
 IF EQUAL(chopped$,"") THEN CONTINUE
 first$=LEFT$(chopped$,1)
 IF EQUAL(first$,"#") THEN CONTINUE
 SPLIT chopped$ BY "=" TO array$ SIZE dimension
 val$=CHOP$(array$[1],"' ")
 pupstate$(array$[0])=val$
WEND
CLOSE FILE handle1

Code: Select all

DECLARE prop$ ASSOC STRING

infile$ = "/etc/rc.d/PUPSTATE"
OPEN infile$ FOR READING AS fh
WHILE NOT(ENDFILE(fh)) DO
    READLN txt$ FROM fh
    txt$ = CHOP$(txt$)
	IF EQUAL(LEFT$(txt$, 1), "#") THEN CONTINUE
	l$ = LEFT$(txt$,INSTR(txt$,"=")-1)
	r$ = RIGHT$(txt$,LEN(txt$)-INSTR(txt$,"="))
	prop$(l$) = r$ 
WEND

PRINT prop$("DEV1FS")
PRINT prop$("ZDRV")
PRINT prop$("PUPSAVE")

Code: Select all

ExtractStr(STRING Main$,STRING Delim$)

Code: Select all

val$=ExtractStr(array$[1],"#")

Code: Select all

 .  VARFILE

Code: Select all

#!/bin/sh
#rxvt does not understand the '-hold' option.

if [ "`echo -n ${*} | grep '\-hold '`" != "" ];then
 EXECCOMMAND="`echo -n ${*} | grep -o ' \-e .*' | sed -e 's/ \-e //'`"
 if [ "$EXECCOMMAND" != "" ];then
  echo '#!/bin/sh' > /tmp/xterm_simulate_hold.sh
  echo "$EXECCOMMAND"  >> /tmp/xterm_simulate_hold.sh
  echo 'echo' >> /tmp/xterm_simulate_hold.sh
  echo 'echo -n "FINISHED. PRESS ENTER KEY TO CLOSE THIS WINDOW: "' >> /tmp/xterm_simulate_hold.sh
  echo 'read simuldone' >> /tmp/xterm_simulate_hold.sh
  chmod +x /tmp/xterm_simulate_hold.sh
  exec rxvt -e /tmp/xterm_simulate_hold.sh
 fi
fi

exec rxvt "${@}"

Code: Select all

DECLARE prop$ ASSOC STRING

infile$ = "PUPSTATE"
OPEN infile$ FOR READING AS fh
WHILE NOT(ENDFILE(fh)) DO
	READLN txt$ FROM fh
	txt$ = CHOP$(txt$)
	IF INSTR(txt$, "#") EQ 1 THEN CONTINUE
	l$ = LEFT$(txt$,INSTR(txt$, "=") - 1)
	prop$(l$) = CHOP$(MID$(txt$, INSTR(txt$, "=") + 1), "'")
WEND
PRINT prop$("DEV1FS")
PRINT prop$("ZDRV")
PRINT prop$("PUPSAVE")

Code: Select all

picscale image resizer/converter - v.0.1a by vovchik, Puppy Linux Forum, Nov 2010

Input formats supported: pnm, pbm, pgm, ppm, tga, xpm, tiff, pcx, gif,
xbm, wmf, icns, bmp, png, jpg and ico.

Output formats supported: png, jpg, bmp, tiff and ico.

Input parameters: oldfilename newfilename height width quality/compression/depth

Example: picscale old.png new.png 128 128 9

Quality/compression/depth settings:

        bmp (N/A):               0 - 100
        jpeg (quality):          0 - 100
        png (compression):       0 - 9
        tiff (compression type): 1 - 8
        ico (depth):             16, 24 or 32

Check out BaCon at www.basic-converter.org