ACC SHELL

Path : /usr/share/YaST2/modules/
File Upload :
Current File : //usr/share/YaST2/modules/AsciiFile.ybc

YaST bytecode 1.4.0	AsciiFile
AsciiFile.ycpblanks	
SetComment	SetListWidthSetDelimiter	AssertLineValid	ReadFile	
FindLineField	GetLines	GetLine
NumLinesChangeLineField	ReplaceLine	

AppendLineRemoveLinesRewriteFile	
filecomment	"filewidths-filedelim	Vfilepathname	filefieldcontent	filelines		fileline

filefilelinefieldentry	filelineentry	

fileentry(filelines:filefpath	3SCRReadWriteExecute0
base$=                                                             %'comment+			.*%"'$widths%-'/delim%5fileline(7&&haskeyl
l	buildline48delim	lstr	num$9			substring			delim $:$;,<		foreachtext	lfields	(>&?+			&@+			(A	size	widths4B&C+						substring		-widths	size	&F+'Hlline'Il	buildline-K-M	lline%Vlines	linenolmap,X	
y2milestone	
path=%1$Y	(Z	SCR::Read.target.size4[value	$\		SCR::Read.target.string&]			splitstring			
$_$`
,a		foreachline	l$c
'dline(e&&	size		comment		regexpmatch			comment4f'gcomment(i&&!comment	size		delim4jposfields$k$l	)m	size	4n&o		findfirstnotof			delim(p&&4q&r			substring		&t		findfirstof			delim(u&&4v&wadd			substring		&x			substring		4{&|add&}'fields'&+(&&size	size		-line&remove-'l%ret$	,foreachnumlinel
(&&!comment	fields4&add,	
y2milestone	
field %1 content %2 ret %3-%ret$
,foreachnum(haskeyl
4, 'l
,	
y2milestone	
lines %1 ret %2-%	ret$
(haskeyl
4, &l
,	
y2milestone	
line %1 ret %2-%
-sizel
%changed,	
y2debug	
line %1 field %2 entry %3$(!haskeyl
4'l
'lfields	(sizelfields	4i&$)4(	size		lfields'lfields&+(	lfields4'lfields&(4'lchanged'l	buildline%changed,	
y2debug	
line %1 entry %2$(	!haskeyl
4
'l
'
lfields'lchanged'l	buildline%
line$+sizel
,	
y2debug	
new line %1 entry %2'l
'lfields'lchanged'l	buildline%(,*	
y2debug	
lines %1,+foreachnum(-haskeyl
4.'/lremovel
%:out	,<	
y2milestone	
path %1,=	
y2debug	
out: %1$>,?foreachnumentryl
&A+			+			 
,C	
y2debug	
Out text: %1(D	size	4E(F	SCR::Read.target.size,GSCR::Execute.target.remove,J
SCR::Write.target.string

ACC SHELL 2018