| version 1.12, 2003/11/20 09:24:35 |
version 1.13, 2004/09/16 23:53:45 |
|
|
| /* $OpenXM: OpenXM/src/k097/help.k,v 1.11 2003/11/20 09:20:36 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/help.k,v 1.12 2003/11/20 09:24:35 takayama Exp $ */ |
| if (K00_verbose) |
if (K00_verbose) |
| Println("help.k: 8/6, 1996 --- 8/7, 1996. 3/6, 1997 --- 12/21, 1997."); |
Println("help.k: 8/6, 1996 --- 8/7, 1996. 3/6, 1997 --- 12/21, 1997."); |
| |
|
| Line 695 def void Protect(name,level) { |
|
| Line 695 def void Protect(name,level) { |
|
| n = Length(Arglist); |
n = Length(Arglist); |
| if (n == 1) { |
if (n == 1) { |
| level = 1; |
level = 1; |
| str = AddString(["[(chattr) ",ToString(level)," /",name," ", |
str = AddString(["[(or_attr) ",ToString(level)," /",name," ", |
| " ] extension pop "]); |
" ] extension pop "]); |
| /* Println(str); */ |
/* Println(str); */ |
| sm1(" [(parse) ",str ," ] extension pop "); |
sm1(" [(parse) ",str ," ] extension pop "); |
| } else if (n ==2) { |
} else if (n ==2) { |
| str = AddString(["[(chattr) ",ToString(level)," /",name," ", |
str = AddString(["[(or_attr) ",ToString(level)," /",name," ", |
| " ] extension pop "]); |
" ] extension pop "]); |
| /* Println(str); */ |
/* Println(str); */ |
| sm1(" [(parse) ",str ," ] extension pop "); |
sm1(" [(parse) ",str ," ] extension pop "); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to help.k CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097