(old)Puppy Linux Discussion Forum

Code: Select all

INCLUDE "/usr/share/BaCon/hug_imports.bac"

'# File: /tmp/0 has the line: A = "aaa"

Set$ = "A"
Val$ = "AAA"
Cmd$ = CONCAT$("cat /tmp/0")
Cfg$ = CHOP$(EXEC$(Cmd$))
SPLIT Cfg$ BY NL$ TO Lines$ SIZE Lsize
OPEN /tmp/0 FOR WRITING AS file
FOR i = 0 TO Lsize - 1
	SPLIT Lines$[i] BY " " TO Col$ SIZE size
	IF Col$[0] = Set$ THEN
PRINT Col$[2], "   ", Val$
		IF Col$[2] != Val$ THEN
PRINT Lines$[i]
			REPLACE$(Lines$[i], Col$[2], Val$)
		END IF
	END IF
'	WRITELN Lines$[i] TO file
NEXT
CLOSE FILE file

Code: Select all

COLOR FG TO BLUE
PRINT
PRINT "================================="
PRINT " READ"
PRINT "/etc/rc.d/PUPSTATE"  
PRINT "================================="
PRINT
COLOR RESET




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


WHILE NOT(ENDFILE(myfile)) DO
    READLN txt$ FROM myfile
    IF NOT(ENDFILE(myfile)) THEN
    '---remove all lines that are bash commented # ---'
    SYSTEM ("sed /^#/d /etc/rc.d/PUPSTATE > /tmp/newPUPSTATE")
    '---remove all lines that have bash single quotes  ---'
    SYSTEM ("sed \"s/'//g\"  /tmp/newPUPSTATE > /tmp/newPUPSTATE2")
	PRINT txt$,NL$;  
    ENDIF
WEND
CLOSE FILE myfile
PRINT "--------"



COLOR FG TO BLUE
PRINT
PRINT "================================="
PRINT " WROTE"
PRINT "/tmp/newPUPSTATE2"  
PRINT "================================="
PRINT
COLOR RESET





'--- cat the file into an array using  x$ --'
x$ = EXEC$("cat /tmp/newPUPSTATE2")
SPLIT x$ BY NL$ TO myarray$ SIZE mysize 

'--- this prints all arrays --'
FOR x = 0 TO mysize  - 1
    PRINT myarray$[x]
NEXT 




COLOR FG TO GREEN
PRINT
PRINT "================================="
PRINT " READ arrays"
PRINT "from /tmp/newPUPSTATE2"  
PRINT "================================="
PRINT
COLOR RESET

'--- this prints only the first array --'
PRINT myarray$[0]

'--- this prints only the scecond array --'
PRINT myarray$[1]

'--- this prints only the third array --'
PRINT myarray$[2]

Code: Select all

																										' read config. file setting
SUB READCFG(STRING Set$)
	IF FILEEXISTS(CfgFile$) = TRUE THEN
		Cmd$ = CONCAT$("grep ", Set$, " ", CfgFile$, "|cut -d' ' -f3")
		Val$ = CHOP$(EXEC$(Cmd$))
	END IF
END SUB
																										' write config. file setting
SUB WRITECFG(STRING Set$, STRING Val$)
	Cmd$ = CONCAT$("echo \"$(<", CfgFile, ")\" |sed \"s/^", Set$, ".*$/", Set$, " = ", Val$, "/\"")
	New$ = EXEC$(Cmd$)
	SYSTEM CONCAT$("echo \"", New$, "\" > ", CfgFile$)
'	PRINT New$
END SUB

Code: Select all

SUB OUTARRAY(STRING Txt$[Size], int Size) 
    OPEN File$ FOR WRITING AS file 
    FOR i = 0 TO Size-1 
       WRITELN Txt$[i] TO file 
    NEXT 
    CLOSE FILE file 
 END SUB

Code: Select all

Problem:
	 file 'bacongui.bac' line 3150: ptr$ = EXTRACT$(var$, "\"-./_()")
Cause:
	 passing argument 1 of 'strdup' makes pointer from integer without a cast [enabled by default]

Code: Select all

Problem:
	 file 'bacon.bac' line 541: ptr$ = EXTRACT$(var$, "\"-./_()")
Cause:
	 passing argument 1 of 'strdup' makes pointer from integer without a cast [enabled by default]