Class: Spoolprint::SpoolPrint

Inherits:
Object
  • Object
show all
Defined in:
ext/native/spoolprint.c

Instance Method Summary collapse

Constructor Details

#initialize(*args) ⇒ Object 



51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
# File 'ext/native/spoolprint.c', line 51

VALUE spoolprintInit(int argc, VALUE* argv, VALUE self) {
	VALUE namaDoc;
	sp_ket ket;
	char* nama = "\0";
	size_t tempuh = 0;
	MUAT_DATA(ket);

	rb_scan_args(argc, argv, "01", &namaDoc);
	if (argc > 0) {
		Check_Type(namaDoc, RUBY_T_STRING);
		nama = RSTRING_PTR(namaDoc);
	}

	while(*nama != 0 && ++tempuh < NAMA_JOB_MAX) {
		*ket->tumpuan++ = *nama++;
	}
	ket->panjangNamaJob = ket->tumpuan - ket->teks;
	*ket->tumpuan++ = 0;
}

Instance Method Details

#cetak ⇒ Object 



71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
# File 'ext/native/spoolprint.c', line 71

VALUE spoolprintCetak(VALUE self) {
	char *nDoc = ASAL_NAMA_DOC, *dicetak;
	size_t panjang;
	sp_ket ket;
	MUAT_DATA(ket);

	if (ket->panjangNamaJob > 0) {
		nDoc = ket->teks;
		dicetak = ket->teks + ket->panjangNamaJob + 2;
	} else {
		dicetak = ket->teks + 1;
	}
	
	if (*dicetak != 0x1b || *(dicetak + 1) != 0x40) return Qnil;
	panjang = ket->tumpuan - dicetak;
	return INT2FIX(spoolprint_dalam(nDoc, dicetak, panjang));
}

#taruh_raw(raw) ⇒ Object 



89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 
# File 'ext/native/spoolprint.c', line 89

VALUE spoolprintRaw(VALUE self, VALUE raw) {
	char* jukir;
	size_t panjang;
	sp_ket ket;

	MUAT_DATA(ket);
	Check_Type(raw, RUBY_T_STRING);
	jukir = RSTRING_PTR(raw);
	panjang = RSTRING_LEN(raw);

	if (ket->tumpuan - ket->teks + panjang < PANJANG_TEKS) {
		while (panjang--) *ket->tumpuan++ = *jukir++;
		return Qtrue;
	} else {
		return Qfalse;
	}
}