Mercurial > vim

comparison src/eval.c @ 38:c524f99c7925 v7.0022

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0022
author vimboss
date Sun, 12 Dec 2004 11:37:09 +0000
parents 125e80798a85
children 410fa1a31baf
comparison
equal deleted inserted replaced
37:fdf55076c53f 38:c524f99c7925
298 static void f_getchar __ARGS((VAR argvars, VAR retvar)); 298 static void f_getchar __ARGS((VAR argvars, VAR retvar));
299 static void f_getcharmod __ARGS((VAR argvars, VAR retvar)); 299 static void f_getcharmod __ARGS((VAR argvars, VAR retvar));
300 static void f_getcmdline __ARGS((VAR argvars, VAR retvar)); 300 static void f_getcmdline __ARGS((VAR argvars, VAR retvar));
301 static void f_getcmdpos __ARGS((VAR argvars, VAR retvar)); 301 static void f_getcmdpos __ARGS((VAR argvars, VAR retvar));
302 static void f_getcwd __ARGS((VAR argvars, VAR retvar)); 302 static void f_getcwd __ARGS((VAR argvars, VAR retvar));
303 static void f_getfontname __ARGS((VAR argvars, VAR retvar));
303 static void f_getfperm __ARGS((VAR argvars, VAR retvar)); 304 static void f_getfperm __ARGS((VAR argvars, VAR retvar));
304 static void f_getfsize __ARGS((VAR argvars, VAR retvar)); 305 static void f_getfsize __ARGS((VAR argvars, VAR retvar));
305 static void f_getftime __ARGS((VAR argvars, VAR retvar)); 306 static void f_getftime __ARGS((VAR argvars, VAR retvar));
306 static void f_getftype __ARGS((VAR argvars, VAR retvar)); 307 static void f_getftype __ARGS((VAR argvars, VAR retvar));
307 static void f_getline __ARGS((VAR argvars, VAR retvar)); 308 static void f_getline __ARGS((VAR argvars, VAR retvar));
2862 {"getchar", 0, 1, f_getchar}, 2863 {"getchar", 0, 1, f_getchar},
2863 {"getcharmod", 0, 0, f_getcharmod}, 2864 {"getcharmod", 0, 0, f_getcharmod},
2864 {"getcmdline", 0, 0, f_getcmdline}, 2865 {"getcmdline", 0, 0, f_getcmdline},
2865 {"getcmdpos", 0, 0, f_getcmdpos}, 2866 {"getcmdpos", 0, 0, f_getcmdpos},
2866 {"getcwd", 0, 0, f_getcwd}, 2867 {"getcwd", 0, 0, f_getcwd},
2868 {"getfontname", 0, 1, f_getfontname},
2867 {"getfperm", 1, 1, f_getfperm}, 2869 {"getfperm", 1, 1, f_getfperm},
2868 {"getfsize", 1, 1, f_getfsize}, 2870 {"getfsize", 1, 1, f_getfsize},
2869 {"getftime", 1, 1, f_getftime}, 2871 {"getftime", 1, 1, f_getftime},
2870 {"getftype", 1, 1, f_getftype}, 2872 {"getftype", 1, 1, f_getftype},
2871 {"getline", 1, 1, f_getline}, 2873 {"getline", 1, 1, f_getline},
4730 #endif 4732 #endif
4731 } 4733 }
4732 } 4734 }
4733 4735
4734 /* 4736 /*
4737 * "getfontname()" function
4738 */
4739 static void
4740 f_getfontname(argvars, retvar)
4741 VAR argvars;
4742 VAR retvar;
4743 {
4744 retvar->var_type = VAR_STRING;
4745 retvar->var_val.var_string = NULL;
4746 #ifdef FEAT_GUI
4747 if (gui.in_use)
4748 {
4749 GuiFont font;
4750 char_u *name = NULL;
4751
4752 if (argvars[0].var_type == VAR_UNKNOWN)
4753 {
4754 /* Get the "Normal" font. Either the name saved by
4755 * hl_set_font_name() or from the font ID. */
4756 font = gui.norm_font;
4757 name = hl_get_font_name();
4758 }
4759 else
4760 {
4761 name = get_var_string(&argvars[0]);
4762 if (STRCMP(name, "*") == 0) /* don't use font dialog */
4763 return;
4764 font = gui_mch_get_font(name, FALSE);
4765 if (font == NOFONT)
4766 return; /* Invalid font name, return empty string. */
4767 }
4768 retvar->var_val.var_string = gui_mch_get_fontname(font, name);
4769 if (argvars[0].var_type != VAR_UNKNOWN)
4770 gui_mch_free_font(font);
4771 }
4772 #endif
4773 }
4774
4775 /*
4735 * "getfperm({fname})" function 4776 * "getfperm({fname})" function
4736 */ 4777 */
4737 static void 4778 static void
4738 f_getfperm(argvars, retvar) 4779 f_getfperm(argvars, retvar)
4739 VAR argvars; 4780 VAR argvars;