| Path : /usr/share/YaST2/modules/ |
| Current File : //usr/share/YaST2/modules/AutoinstDrive.ybc |
YaST bytecode 1.4.0
AutoinstDrive : AutoinstDrive.ycp autoinstall/types.ycp
PartitionT DriveT AutoinstPartPlanT DialogT
autoinstall/common.ycp AutoinstStorage
currentDialog
stack
currentEvent replacement_point
dialogs
addDialog
symbol2string
string2symbol
toItemList updateCurrentDialog
getDialog
prepareStack callDialogFunction
eventHandled
getTypePrefix stripTypePrefix removePrefix addPrefix autoinstall/tree.ycp sTree
iTree setTree currentTreeItem isContainedInTree
termContains
! selectTreeItem " createTreeNode # AutoinstCommon $ AutoinstPartition % fields & _id ' diskTypes
( isValidDiskType
) set * new
+ isDrive , isField - hasValidType . areEqual / getNodeReference 0 getNodeName 1
createTree 2 getPartition 3 getPartitionCount 4 getNextAvailablePartitionNumber 5 addPartition 6 updatePartition 7 removePartition 8
parseDrive 9 Export
) ) > drive field value * * I name type
+ + V drive , , Y field - - \ field value . . _ d1 d2 / / m drive 0 0 drive
enableHTML 1 1 drive 2 2 drive idx 3 3 drive 4 4 drive 5 5 drive partition 6 6 drive idx partition 7 7 2 drive idx 8 8 L drive 9 9 g drive B 3 UI ChangeWidget
QueryWidget
1 autoinstall/types.ycp 0
autoinst#
PartitionT #
DriveT # AutoinstPartPlanT # DialogT
2 AutoinstDrive.ycp1
autoinstall/common.ycp 0
autoinst1 autoinstall/types.ycp3 AutoinstStorage $
$
$
$ rp$
%
name dialog
&
add %# s
($ 4$
-% -' substring tostring %) s
-*
symbolof
toterm %- sList
-. maplist s
item id %2
dialogType
&3
-4 %8
dialogType
-9
%<
,@
y2milestone
prepareStack(): NOT IMPLEMENTED%D dialog
function
functionTerm
$E (F 4F
,G
y2milestone
calling function: '%1'->'%2'. type Unknown ,I eval 4K
,L
y2milestone
Function not found: '%1'->'%2'. type Unknown %T
&U
%[ item
(\ && 4\
-] substring findfirstof _ -_ %e item
(f && 4f
-g substring + findfirstof _ -i %m s prefix
result
$n &o regexpsub + (.*) \1(p 4p
-q -s %x s prefix
-y + 2 AutoinstDrive.ycp1 autoinstall/tree.ycp 1
autoinstall/common.ycp$
tree$ id % newTree , Items % -
Value%1 t s
args found (3
symbolof
43 -4 $7 argsof $8 ,9 foreach e (: 4: &; (< 4< .= (@ 4@ &A (B 4B .C (F &&
4G &H .I -L %V s
tree found $W ,X foreach item (Y 4Y &Z .[ -^ %g ! newItem item
allItems $h $i &j Items(k 4k ,l CurrentItem -m ,o
y2warning
Item '%1' not found in tree ,p
y2debug
Tree was '%1' -q %{ " reference name children result $| Empty (} size 4} &~ item id 4 & item id ,
y2milestone
new node: '%1' - 2 AutoinstDrive.ycp3 AutoinstCommon set isValidField
isValidObject hasValidType areEqual 3 AutoinstPartition isPartition
createTree parsePartition exportPartition 0 autoinst$ %
_id device
initialize
partitions pesize type CT_DISK use all$( & $* ' CT_DISK CT_LVM CT_MD CT_NFS%3 ( type
-4
contains ' %> ) -? % %I * result (J ! ( 4J ,K
y2warning
. Invalid disk type: '%1'. Defaulting to CT_DISK &L CT_DISK $N ) ) ) % device _id & type &O & + & -P %V + -W % %Y , -Z % %\ - -] % %_ . -` %m / dev_id ref $n _id $o drive_(p
type CT_DISK CT_DISK4p &q volgroup_ -s + tostring % 0 nodeName description driveType
$ device ( 4 &
sformat
<b>%1</b> $ - Drive autoinst$
type CT_DISK ( CT_DISK4 & - Volume group autoinst& + + , CT_4 useTypeDesc $
initialize
initialize reuse( 4 &
sformat
%1 to be %2d 4 &
sformat
%1 , %2 - + % 1
partitions partitionTerms part_id driveRef $
partitions $ $ $ / ( size 4 , foreach p & add & + - " 0 % 2 result $
( + 4 partList $
partitions &
4 ,
y2error
Invalid drive: '%1'. - % 3 - size
partitions % 4 usedPartitionNumbers newPartitionNumber $ , foreach part
partitions partitionNumber $ partition_nr ( 4 & add $ ) contains 4 & + - % 5 ( 4
partitionList $
partitions & add - add
partitions 4 ,
y2error
No valid partition: '%1' % 6 ( + 4 ( 4
partitionList $
partitions ( size 4 ' - add
partitions 4 ,
y2error
9 Index '%1' out of bounds. Drive has only '%2' partitions. size 4 ,
y2error
No valid partition: '%1'. 4" ,#
y2error
No valid drive '%1'. -% %2 7 (3 + 43
partitionList $4
partitions (5 size 45 &6 remove -7 add
partitions 49 ,:
y2error
Q Cannot remove partition '%1', index out of bounds. Drive has only '%2' partitions size 4> ,?
y2error
5 Cannot remove partition '%1' from invalid drive '%2'. %L 8 newDrive $M * auto
type CT_DISK &N ) device device auto &O )
initialize
initialize &P ) use use all &Q ) pesize pesize ,R foreach part
partitions newPart $S (T 4T &U 5 4W ,X
y2error
' Couldn't construct PartitionT from '%1' -[ %g 9 exportDrive $i remove _id'k use
use Empty 'm
partitions maplist part
partitions -q