.packageName <- "RCaBoCha"
# 2008 03 28 # the third arg omitted
RCaBoCha <-
function( str ){
#   gc()
   if(nchar( str ) < 1){
     stop("first argument must be specified")
   }
  .Call("RCaBoCha", as.character(str) ,  PACKAGE="RCaBoCha")
}
# 2008 03 28 # the third arg omitted
RCaBoChaFile<-
function( str, str2 = "ない"  ){
#   gc()
   if(nchar( str ) < 1){
     if(!file.exists(str)){
       stop("first argument must be specified")
     }
   }
   if(nchar( str2 ) < 1){
     stop("second argument must be specified")
   }
  
  .Call("RCaBoChaFile", as.character(str) , as.character(str2) ,  PACKAGE="RCaBoCha")
}
# 2008 03 28 # the third arg omitted
RCaBoChaFreq <-
function( str, str2 = "ない" ){
#   gc()
   if(nchar( str ) < 1){
     stop("first argument must be specified")
   }
   if(nchar( str2 ) < 1){
     stop("second argument must be specified")
   }
  
  .Call("RCaBoChaFreq", as.character(str) , as.character(str2) ,  PACKAGE="RCaBoCha")
}
