Return to file.C CVS log

Up to [parser3project] / parser3 / src / classes

file class just compiled

/*
	Parser
	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)

	$Id: file.C,v 1.1 2001/03/19 20:08:12 paf Exp $
*/

#include "pa_request.h"
#include "_file.h"
#include "pa_vfile.h"

// global var

VStateless_class *file_base_class;

// methods

static void _save(Request& r, const String& method_name, Array *params) {
	//\Pool& pool=r.pool();
	Value *vfile_name=static_cast<Value *>(params->get(0));
	// forcing
	// ^save[this body type] 
	r.fail_if_junction_(true, *vfile_name, 
		method_name, "file name must not be junction");

	static_cast<VFile *>(r.self)->save(r.absolute(vfile_name->as_string().cstr()));
}

// initialize

void initialize_file_base_class(Pool& pool, VStateless_class& vclass) {
	// ^save[file-name]
	vclass.add_native_method("save", _save, 1, 1);
}