GLE User Manual - Fedora Project Packages GIT repositories

6.9. DEVICE DEPENDEND CONTROL 53fwrite file x1 . . .Write given arguments to “file”.fwriteln file x1 . . .Write given arguments to “file” and start a new line.fgetline file line$Read an entire line from “file” and store it in the string “line$”.ftokenizer file commentchar spacetokens singletokensSets up the parameters of the tokenizer that controls the reading of “file”. The commentcharparameter specifies the characters that are to be interpreted as line comments. It is a string, buteach character of the string is assumed to be a separate comment character. The default is “!”. Ifone would write “!%”, then both “!” and “%” would be comment indicators. The fread functionsskip everything after a comment character to the end of the line. The spacetokens string representsthe set of characters that are interpreted as spaces or delimiters. The default value is “ ,\t\r\n”, i.e.,space, comma, tab, carriage return, and newline are delimiters by default. Finally, the singletokensstring identifies characters that should be returned as separate tokens, even if they are glued toother tokens. For example, if “@” would be a single char token, then the string “me@myself.com”would be returned in three tokens: “me”, “@”, and “myself.com”.For example:fopen "file.dat" f1 readfopen "file.out" f2 writeuntil feof(f1)fread f1 x y zaline x yrline x zfwriteln f2 x*2 "y =" ynextfclose f1fclose f26.9 Device dependend ControlA built in function which returns a string describing the device is available.e.g. DEVICE$() = "HARDCOPY, PS,"on the postscript driver.This can be used to use particular fonts etc on appropriate devices. E.g.:if pos(device$(),"PS,",1)>0 thenset font psncsbend if