Appearance

GET_ATTRPROF_SUPERDIR ​

GET_ATTRPROF_SUPERDIR returns the name of the attribute profile super directory, of which the passed attribute profile directory is a subdirectory.

Syntax ​

leo-grammar
CC "Core" GET_ATTRPROF_SUPERDIR apdirid:idValue.


#-->RESULT ecode:intValue superapdirid:intValue
CC "Core" GET_ATTRPROF_SUPERDIR apdirid:idValue.


#-->RESULT ecode:intValue superapdirid:intValue

Parameters ​

  • apdirid (idValue) - the directory is specified by its id passed in apdirid.

Returns ​

  • ecode (intValue) - the result ecode is set to zero if function succeeded and to a non zero value if failed.
  • superapdirid (intValue) - the result superapdirid holds the core id of the super directory.

Details ​

See Also ​

Examples ​

asc
CC "Core" GET_ALL_ATTRPROF_SUBDIRS apdirid:(0)
IF (LEN(apdirids)=0)
{
  CC "AdoScript" ERRORBOX ("Error in GET_ALL_ATTRPROF_SUBDIRS!\nNo read permission or no attrprof dirs definied?")
  EXIT
}
SET rootdirid:(VAL token(apdirids,0," "))
CC "Core" GET_ATTRPROF_DIRECTORY_NAME apdirid:(rootdirid)
SET rootname:(apdirname)
CC "AdoScript" INFOBOX ("First root directory is:\n\""+rootname+"\"")

CC "Core" GET_ALL_ATTRPROF_SUBDIRS apdirid:(rootdirid)
IF (LEN(apdirids)=0)
{
  CC "AdoScript" ERRORBOX ("Error in GET_ALL_ATTRPROF_SUBDIRS!\nNo read permission or no subdirs defined?")
  EXIT
}
SET subdirid:(VAL token(apdirids,0," "))
CC "Core" GET_ATTRPROF_DIRECTORY_NAME apdirid:(subdirid)
SET subname:(apdirname)
CC "AdoScript" INFOBOX ("First subdir of \""+rootname+"\" is:\n\""+subname+"\"")

CC "Core" GET_ATTRPROF_SUPERDIR apdirid:(subdirid)
IF (ecode!=0)
{
  CC "AdoScript" ERRORBOX ("Error in GET_ATTRPROF_SUPERDIR!")
  EXIT
}
CC "Core" GET_ATTRPROF_DIRECTORY_NAME apdirid:(superapdirid)
CC "AdoScript" INFOBOX ("Returned superdir from \""+subname+"\" is:\n\""+apdirname+"\"")
CC "Core" GET_ALL_ATTRPROF_SUBDIRS apdirid:(0)
IF (LEN(apdirids)=0)
{
  CC "AdoScript" ERRORBOX ("Error in GET_ALL_ATTRPROF_SUBDIRS!\nNo read permission or no attrprof dirs definied?")
  EXIT
}
SET rootdirid:(VAL token(apdirids,0," "))
CC "Core" GET_ATTRPROF_DIRECTORY_NAME apdirid:(rootdirid)
SET rootname:(apdirname)
CC "AdoScript" INFOBOX ("First root directory is:\n\""+rootname+"\"")

CC "Core" GET_ALL_ATTRPROF_SUBDIRS apdirid:(rootdirid)
IF (LEN(apdirids)=0)
{
  CC "AdoScript" ERRORBOX ("Error in GET_ALL_ATTRPROF_SUBDIRS!\nNo read permission or no subdirs defined?")
  EXIT
}
SET subdirid:(VAL token(apdirids,0," "))
CC "Core" GET_ATTRPROF_DIRECTORY_NAME apdirid:(subdirid)
SET subname:(apdirname)
CC "AdoScript" INFOBOX ("First subdir of \""+rootname+"\" is:\n\""+subname+"\"")

CC "Core" GET_ATTRPROF_SUPERDIR apdirid:(subdirid)
IF (ecode!=0)
{
  CC "AdoScript" ERRORBOX ("Error in GET_ATTRPROF_SUPERDIR!")
  EXIT
}
CC "Core" GET_ATTRPROF_DIRECTORY_NAME apdirid:(superapdirid)
CC "AdoScript" INFOBOX ("Returned superdir from \""+subname+"\" is:\n\""+apdirname+"\"")
  • Get all root directories
  • Check if there are any (LEN(apdirids)=0)?
  • Get name of first root dir and show it
  • Get all subdirs from first root dir
  • Check if there are any
  • Get name of first subdir and show it
  • Get SUPERDIR of first subdir (must be the first root dir!)
  • Check for error
  • Get name of superdir and show it

Details ​

To successfully run this example you should at least have defined one root directory and one subdirectory in the attribute profile setting dialog.

Versions and Changes ​

Available since ADOxx 1.3