SpRegistry

• Mode 1: Setting single value.

Syntax: result = spRegistry ( key , name , val , [ type ] )

• Mode 2: Setting default value of a certain key.

Syntax: result = spRegistry ( key , [ 'DEFAULT:' ] , val )

• Mode 3: Querying single value.

Syntax: result = spRegistry ( key , name )

• Mode 4: Query default value of a certain key.

Syntax: result = spRegistry ( key [ , [ 'DEFAULT:' ] ] )

• Mode 5: Query type of a single value.

Syntax: result = spRegistry ( key , [ 'TYPE:' ] , name )

• Mode 6: Deleting a single value.

Syntax: result = spRegistry ( key , name , 'DELETE:' )

• Mode 7: Deleting default value of a certain key.

Syntax: result = spRegistry ( key , [ 'DEFAULT:' ] , 'DELETE:' )

• Mode 8: Deleting an key and all associated subkeys and values.

Syntax: result = spRegistry ( key , 'DELETE:' )

• Mode 9: Querying names of all values associated with a certain key.

Syntax: result = spRegistry ( key , 'VALUES:' , 'stem' )

• Mode 10: Querying subkeys of a certain key.

Syntax: result = spRegistry ( key , 'SUBKEYS:' , 'stem' )

Parameters:

• key – Registry key.
• name – Name of the value to be set, queried, or deleted.
• val – Value to be set, queried, or deleted.
• stem – The result of the enumerating operations will be set into this stem veriable.

Returns:

• For successful setting invocations, result will equal . (1,2)
• For successful querying invocations, result will be given the value of the specified registry value. (3,4,5)
• For successful deleting invocations, result will equal . (6,7,8)
• For succesful enumerating operations, result will be number of items returned. (9,10)
• Possible types returned by mode 5 are 'dword:' (2 byte values), 'hex:' (variable length binary data), (variable length strings).

The error string 'ERROR:' may be returned if an error occurs. Additionally the Variable 'RC' will be set to the return code of the failing API Call.

Return Codes of common failure situations:

• 3 File Not Found (Key not found)
• 1010 Bad Key

Remarks: When setting a value of a non existing key, the key will be created.

Example Code:

/* regdump.cmd (spUtils Example Code) */
/* Prints out a registry key with all values and subvalues, like the */
/* Registry Export function of Regedit */
 
 PARSE ARG args
 IF RIGHT(args,1)='\' THEN args=LEFT(args,LENGTH(args)-1)
 
 SAY 'REGEDIT4'
 SAY 
 CALL RegDump args
 RETURN
 
 RegDump: PROCEDURE
      SAY '['||ARG(1)||']'
 
      CALL KeyDump ARG(1)
 
      CALL spRegistry ARG(1),'SUBKEYS:','s'
      DO i=1 TO s.0
           CALL RegDump ARG(1)||'\'||s.i
      END
      RETURN
 
 KeyDump: PROCEDURE
      CALL spRegistry ARG(1),'VALUES:','v'
      DO i=1 to v.0
           CALL ValDump ARG(1), v.i
      END
      CALL LINEOUT ,
      RETURN

 ValDump: PROCEDURE
      IF ARG(2)= THEN DO
           val=spRegistry(ARG(1),'DEFAULT:')
           type=
           out='@='
      END
      ELSE DO
           val=spRegistry(ARG(1),ARG(2))
           type=spRegistry(ARG(1),'TYPE:',ARG(2))
           out='"'
           DO i=1 TO LENGTH(ARG(2))
                c=SUBSTR(ARG(2),i,1)
                IF c='\' | c='"' THEN out=out||'\'
                out=out||c 
           END
           out=out||'"='type
 END
 SELECT
      WHEN type='dword:' THEN CALL DWordDump val
      WHEN type='hex:' THEN CALL HexDump val
      WHEN type= THEN CALL StringDump val
      THERWISE EXIT 1
 END
 RETURN
 
 DWordDump: PROCEDURE EXPOSE out
      DO i=1 TO LENGTH(out)
           c=SUBSTR(out,i,1)
      CALL LINEOUT ,out||spD2X(ARG(1),'l')
      RETURN
 
 HexDump: PROCEDURE EXPOSE out
      DO i=1 TO LENGTH(ARG(1))
           IF i>1 & LENGTH(out)>3 THEN out=out||','
           out=out||spD2X(C2D(SUBSTR(ARG(1),i,1)),'b')
  
           IF LENGTH(out)>75 & i<=LENGTH(ARG(1)) THEN DO
                CALL LINEOUT ,out||',\'
                out=' '
           END
      END
      IF out\= THEN CALL LINEOUT ,out
      RETURN
 
 StringDump: PROCEDURE EXPOSE out
      CALL CHAROUT ,out||'"'
      posx=LENGTH(out)+1
      DO i=1 TO LENGTH(ARG(1))
           IF i>1 & posx>76 & i<LENGTH(ARG(1)) THEN DO
                CALL LINEOUT ,'"\'
                CALL CHAROUT ,'"'
                posx=1
           END
           c=SUBSTR(ARG(1),i,1)
           IF c='\' | c='"' THEN DO
                CALL CHAROUT ,'\'
                posx=posx+1
           END
           CALL CHAROUT ,c
           posx=posx+1
 END
 CALL LINEOUT ,'"'
 RETURN