SF.net SVN: geany: [758] trunk

kretek at users.sourceforge.net kretek at xxxxx
Wed Aug 23 14:30:32 UTC 2006


Revision: 758
Author:   kretek
Date:     2006-08-23 07:30:15 -0700 (Wed, 23 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/geany/?rev=758&view=rev

Log Message:
-----------
Adding of autocompletion for PASCAL; Update of data/latex.tags

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/data/latex.tags
    trunk/src/highlighting.c

Added Paths:
-----------
    trunk/data/pascal.tags
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog	2006-08-22 19:53:11 UTC (rev 757)
+++ trunk/ChangeLog	2006-08-23 14:30:15 UTC (rev 758)
@@ -1,3 +1,10 @@
+2006-08-23  Frank Lanitz  <frank at frank.uvena.de>
+
+ * src/highlighting.c, data/pascal.tags:
+    Added auto completion for PASCAL
+ * data/latex.tags: Update of catalog
+
+
 2006-08-22  Nick Treleaven  <nick.treleaven at btinternet.com>
 
  * src/callbacks.c: Fix quit confirmation message with no files open.

Modified: trunk/data/latex.tags
===================================================================
--- trunk/data/latex.tags	2006-08-22 19:53:11 UTC (rev 757)
+++ trunk/data/latex.tags	2006-08-23 14:30:15 UTC (rev 758)
@@ -555,6 +555,7 @@
 \includegraphics||[options]{name}|
 \includegraphics||{name}|
 \includeonly||{filelist}|
+\includepdf||[options]{filelist}|
 \indent|||
 \index||{entry}|
 \indexname||{name}|
@@ -918,6 +919,7 @@
 \Phi|||
 \pi|||
 \Pi|||
+\place||{location}|
 \plus|||
 \pm|||
 \pmatrix|||
@@ -1026,6 +1028,7 @@
 \section*||{title}|
 \sectionmark||{code}|
 \selectfont|||
+\selectlanguage||{language}|
 \setbox|||
 \setcounter||{counter}{value}|
 \setlanguage|||

Added: trunk/data/pascal.tags
===================================================================
--- trunk/data/pascal.tags	                        (rev 0)
+++ trunk/data/pascal.tags	2006-08-23 14:30:15 UTC (rev 758)
@@ -0,0 +1,119 @@
+arc||(X: SmallInt, Y: SmallInt, StAngle: Word, EndAngle: Word, Radius: Word)|
+assigncrt||(File: Text)|
+bar||(x1: SmallInt; y1: SmallInt; x2: SmallInt; y2: SmallInt)|
+bar3d||(x1: SmallInt; y1: SmallInt; x2: SmallInt; y2: SmallInt; depth: Word; top: Boolean)|
+begin|||
+black|||
+blink|||
+blue|||
+brown|||
+cleardevice|||
+closegraph|||
+clreol|||
+clrscr|||
+const|||
+cursorbig|||
+cursoroff|||
+cursoron|||
+cyan|||
+darkgray|||
+delay||(MS: Word)|
+delline|||(X: Byte, Y: Byte)|
+detectgraph||(GraphDriver: SmallInt; var GraphMode: SmallInt)|
+drawpoly||(NumPoints: Word; var polypoints)|
+ellipse||(X: SmallInt; Y: SmallInt; stAngle: Word; EndAngle: Word; XRadius: Word; YRadius: Word)|
+fillellipse||(X: SmallInt; Y: SmallInt; XRadius: Word; YRadius: Word)|
+fillpoly||(NumPoints: Word; var PolyPoints)|
+floodfill||(x: SmallInt; y: SmallInt; Border: Word)|
+getarccoords||(var ArcCoords: ArcCoordsType)|
+getaspectratio||(Xasp: Word; Yasp: Word)|
+getbkcolor|word||
+getcolor|word||
+getdefaultpalette||(var Palette: PaletteType)|
+getdirectvideo|bool||
+getdrivername|String||
+getfillpattern||(var FillPattern: FillPatternType)|
+getfillsettings||(var Fillinfo: FillSettingsType)|
+getgraphmode|Smallint||
+getlinesettings||(var ActiveLineInfo: LineSettingsType)|
+getmaxcolor|Word||
+getmaxmode|Smallint||
+getmaxx|Smallint||
+getmaxy|Smallint||
+getmodename|String|(ModeNumber: SmallInt)|
+getmoderange||(GraphDriver: SmallInt; var LoMode: SmallInt; var HiMode: SmallInt)|
+getpalette||(var Palette: PaletteType)|
+getpalettesize|Smallint||
+gettextsettings||(var TextInfo: TextSettingsType)|
+getviewsettings||(var viewport: ViewPortType)|
+getx|Smallint||
+gety|Smallint||
+gotoxy||(x: Smallint, y: Smallint)|
+graphdefaults|||
+grapherrormsg|String|(ErrorCode: SmallInt)|
+graphresult|Smallint||
+green|||
+highvideo|||
+initgraph||(var GraphDriver: SmallInt; var GraphMode: SmallInt; const PathToDriver: String)
+insline|||
+installuserdriver|Smallint|(Name: String; AutoDetectPtr: Pointer)|
+installuserfont|Smallint|(const FontFileName: String)|
+keypressed|bool||
+lightblue|||
+lightcyan|||
+lightgray|||
+lightgreen|||
+lightmagenta|||
+lightred|||
+linerel||(Dx: SmallInt; Dy: SmallInt)|
+lineto||(X: SmallInt; Y: SmallInt)|
+lowvideo|||
+magenta|||
+moverel||(Dx: SmallInt; Dy: SmallInt)|
+moveto||(X: Smallint, Y: Smallint)|
+normvideo|||
+nosound|||
+operator||(**(float, float): float)|
+operator||(**(int64, int64): int64)|
+outtext||(const TextString: String)|
+pieslice||(X: SmallInt; Y: SmallInt; stangle: SmallInt; endAngle: SmallInt; Radius: Word)|
+procedure|||
+program||(Title)|
+queryadapterinfo|PModeInfo||
+read||(Identifier)|
+readln||(Identifier)|
+readkey|char||
+rectangle||(x1: SmallInt; y1: SmallInt; x2: SmallInt; y2: SmallInt)|
+red|||
+registerbgidriver|Smallint|(driver: pointer)|
+registerbgifont|Smallint|(font: pointer)|
+restorecrtmode|||
+sector||(x: SmallInt; y: SmallInt; StAngle: Word; EndAngle: Word; XRadius: Word; YRadius: Word)| setaspectratio||(Xasp: Word; Yasp: Word)|
+setbkcolor||(Color: Word)|
+setcolor||(Color: Word)|
+setdirectvideo||(DirectAccess: Boolean)|
+setfillpattern||(Pattern: FillPatternType; Color: Word)|
+setfillstyle||(Pattern: Word; Color: Word)|
+setgraphmode||(Mode: SmallInt)|
+setlinestyle||(LineStyle: Word; Pattern: Word; Thickness: Word)|
+setpalette||(ColorNum: Word; Color: ShortInt)|
+settextjustify||(horiz: Word; vert: Word)|
+settextstyle||(font: Word; direction: Word; charsize: Word)|
+setusercharsize||(Multx: Word; Divx: Word; Multy: Word; Divy: Word)|
+setviewport||(X1: SmallInt; Y1: SmallInt; X2: SmallInt; Y2: SmallInt; Clip: Boolean)|
+setwritemode||(WriteMode: SmallInt)|
+soundSound||(Hz: Word)|
+textbackground||(Color: Byte)|
+textcolor||(Color: Byte)|
+textheight|Word|(const TextString: String)|
+textmode||(Mode: Integer)|
+textwidth|Word|(const TextString: String)|
+uses||(Unitlist)|
+var|||
+wherex|Byte||
+wherey|Byte||
+white|||
+window||(X1: Byte, Y1: Byte, X2: Byte, Y2: Byte)|
+write||(Output)|
+writeln||(Output)|
+yellow|||

Modified: trunk/src/highlighting.c
===================================================================
--- trunk/src/highlighting.c	2006-08-22 19:53:11 UTC (rev 757)
+++ trunk/src/highlighting.c	2006-08-23 14:30:15 UTC (rev 758)
@@ -33,6 +33,7 @@
 
 static style_set *types[GEANY_MAX_FILE_TYPES] = { NULL };
 static gboolean global_c_tags_loaded = FALSE;
+static gboolean global_pascal_tags_loaded = FALSE;
 static gboolean global_php_tags_loaded = FALSE;
 static gboolean global_html_tags_loaded = FALSE;
 static gboolean global_latex_tags_loaded = FALSE;
@@ -639,6 +640,15 @@
 	styleset_get_wordchars(config, config_home, GEANY_FILETYPES_PASCAL, GEANY_WORDCHARS);
 	filetypes_get_config(config, config_home, GEANY_FILETYPES_PASCAL);
 
+	// load global tags file for PASCAL autocompletion
+	if (! app->ignore_global_tags && ! global_pascal_tags_loaded)
+	{
+		gchar *file = g_strconcat(app->datadir, G_DIR_SEPARATOR_S "pascal.tags", NULL);
+		tm_workspace_load_global_tags(file, 4);
+		global_pascal_tags_loaded = TRUE;
+		g_free(file);
+	}
+
 	g_key_file_free(config);
 	g_key_file_free(config_home);
 	g_free(f0);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




More information about the Commits mailing list